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FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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Table of contents 
(2) eo PECL ARAT IONS 
(5) 151 FOR INT DEST RG ! One dimension array desc. init. 
(8) $03 FORSINI_DES2_R ! Two dimension array desc. init. 
(11) 52 FORSINI_DESC_R6 ! N dimension array desc. init. 


ro V04-00 Page 1 
JFORINIDES.MAR; 1 (1) 
init pens 

$BL1021 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE S FURNISHED UNDER A LICENSE AND MAY BE USED AND sonics 
ONLY IN ACCORDANCE WITH THE TERMS OF sty pe SE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 

ITY FOR THE USE OR + etait OF ITS 


DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL 


IBIL 
SOFTWARE ON EQUIPMENT WHICH IS 
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; ABSTRACT: 


FORTRAN support routines to initialize variable 

dimensioned array descriptors at FORTRAN procedyre entry time. 
For speed the important special cases of | and 2 dimensions 
are provided for as separate routines. 


; ENVIRONMENT: Any access mode--usually user mode, AST re-entrant 
; AUTHOR: Thomas N. Hastings, CREATION DATE: 1-Apr-77 


; MODIFIED BY: 

; ‘ aang N. agent his 2-Apr-77: VERSION 01 
ina 
tal LIBSSTOP directly. TNH 20-Dec-77 
Update FOR? AB) ht notice. JBS 16-NOV-78 
Remove +: JARRDIM = not needed. JBS 16-DEC-78 
e PSECT directives. JBS 22-DEC-78 

Error “FORE _ADSARRD IN now becomes continuable. SBL 25-May-1979 
Add index multiply for datatype DC (D COMPLEX*16). | The compiler 
go0te ; yee. gpevore context addressing for DC, but can for GC. 
. u y= 

; 1-021 - Use general mode addressing. SBL 30-Nov-1981 
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SVP VV Bs BS BS ES ES EB EB BWA NNN PPONONININPONONU DY 2 2 2 PP OO Oo 
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AN array descriptor initializatio 15-SEP-1984 23:5 AX/VMS Macro 
BECLARATI 


v04-00 Page g 
ONS 6-SEP=-1984 10:5 FORRTL.SRC CIF ORINIDES.MAR;1 (2) 
-SBTTL DECLARATIONS 


>w 


COOoCooo 


INCLUDE FILES: 


EXTERNAL SYMBOLS: 


Sete Ge Se Ge te 


-DSABL GBL ; Declare all externals 
eEXTRN PORS ADJARRDIM 3 32-bit condition value for signal 
“EXTRN LIBSSIGNAL 3 SIGNAL error 


3; MACROS: 
SOSCDEF ; define string descriptor symbols 
: EQUATED SYMBCLS: 


FFFFFFFS8 
FFFFFFFC 


DSCS$L_LOW_INDX = DSCSW_LENGTH-8 ; place to store lowest index 
or use by FORTRAN with INDEX instr. 
DSCSL_HIGH_INDX = DSCS$L_LOW_ INDX#4 ; place to store highest index 
for use 7 hd eae with INDEX instr. 
Note: the above are defined here, rather than in SRMDEF, since 
they are not part of the calling standard between modules. 
They are only a convention between the Common OTS and a single 
FORTRAN module. 


OWN STORAGE: 


none 


PSECT DECLARATIONS: 


~-PSECT _FORSCODE PIC,SHR,LONG,EXE ,NOWRT 


0000 
: program section for FORS code 


SOoOSOSCSOSOOOSOSOSOSOSOSOOOCSOOSOSOSOOOOCOOOSOOSOOOOOOOOOOoOo 
GOOCOCOCOCOCOCOSOSOSCCOSOOSCSCSOOSOSOCOCOOOOOOOOOOOOSOOO 


SOSCOCOCSOSOSOOSOSOOSOSOSOOOOSOOCOOOOOOOOOOOOOOOOOO 


SOOSSSCOCSOSOOOSSSOSSOSOSOSOSOSOSOSOSOSOSOOSOOOSOOSOOSSoO 
AUS WN OS OONAU EWN 0 ODNAU EWN 0 OONOUE WN OOOnNIO 


30000 0 00009 09.09 09 09 09 09 09 09 SI NINN NIN NIN NIA OAAAAAOOOOUIUIN 
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FORSINI_DES ; FORTRAN ar :53:19 VAX/VMS Macro v04-00 Page 3 
1-021 BECLARATIONS 6-SEP=-1984 $5:83:38 LPORRTL. SRCIFORINIDES MAR: 1 ’ (4) 
9 
09 , 5 ; C.10.5 Array Descriptor (DSC$K_CLASS_A) 
101 ; An array descriptor consists of 3 contiguous blocks. The first block 
1 § : contains the descriptor prototype information and is part of every 
8 103; array descriptor. The second and third blocks are optional. If the 
4 pe ; third block is present then so is the second. 
000 106 ; A complete array descriptor has the form: 
$600 10 . . 
000 108 : $ececcce $eececea $eecec-coesecoce + 
B88 109; | & {| DTYPE } LENGTH | Descriptor 
8006 119 3 ¢eeenocan ee POINTER ewer eeaner nea + 
; 1 N ‘ 
$000 113. { DIMCT | AFLAGS! Reserve ou Block 1-P 
; ' ' ' eserve ' oc - Prototype 
0000 1 14 3 t¢ereesecae -oeoeececa bower marae scnaseee 4+ yP 
0000 115 ; H ARSIZE ' 
0000 116 : jucnauasucaiwnceesnadaunnensennn + 
0000 117 ; 
0000 118 : $wwwweeeoesocecceccececcocceccon + 
0000 119 ; ' AO ' 
0000 120 : $eeeeeenseseooesooooesoceeesooce + 
0000 121 ; H M1 ' 
9009 1¢8 : $-cncccnenasenenimenuatetadwunn + rans aca : 
; ' own H oc - Multipliers 
0000 124; tees ener ee we ewww ee wwe ew eee een ee + 
0000 125 ; ' M(n-1) H 
0000 126 : juscenesenedmmeenminnebatennant + 
0000 127 ; : Mn ' 
0000 128 : jedememenmuseenennnnemmenennand + 
0000 129 ; 
0000 130 : $ccucemmemeenemaeneRE + 
0000 131 ; ' L1 H 
0000 132 : joermianemindnncemememnenaans + 
0000 133 ; H ul : 
0000 134 ;: a a + 
0000 135 ; ' owe H Block 3 = Bounds 
0000 136 : Few mmeweeeeweweeooeoececcececccs $ 
0000 137 ; : Ln H 
0000 138 : $eeeccesceoseooseecosecoecocecca + 
0000 139 ; H Un : 
0000 140 : jose nenianens + 
4 141 ; 
0 16 : 
4 143 ; 
000 144 ; PSECT DECLARATIONS: 
0000 145; 
0000 146 
00000000 147 -PSECT _FORSCODE PIC,SHR,LONG,EXE ,NOWRT : 
44 123 ; program section for FORS$ code 
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! One dimension array d 6-SEP-1984 10:56:25 CFORRTL.SRCJFORINIDES.MAR; 1 (5) 


-SBTTL FORSINI_DES1_R2 ! One dimension array desc. init. 
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i+ 
; FUNCTIONAL DESCRIPTION: 
initialize one-dimension array descriptor entries based on the Lower 
and upper subscripts Limits. The LOWLINDX and HIGH_INDX 
entries are FORTRAN specific for in-line subscript Checking 
using the INDEX instruction and are outside the standardized 
array descriptor paased between modules. 
CALLING SEQUENCE: 
MOVA address_of 
JSB FORSINI_DES 
INPUT PARAMETERS: 
RO = address of array descriptor 
IMPLICIT INPUTS: 
Length of each data element - LENGTH 
data type of each element - DTYPE 
address of first allocated entry - POINTER 
lower subscript Limit = L1 
upper subscript Limit - U1 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
multiplier - M1 
array size in bytes - ARSIZE 
highest Linear index = HIGH INDX 
lowest Linear index - LOW_INDX 
address of A(0) - AO 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 


NONE 


descriptor, RO 
1_Re 
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acr -00 
dimension array d 6=SEP=1984 10:56:25 CFORRTL.SRCJFORINIDES.MAR; 1 


; Register usage: 


ooo O-0-0 20 
— 
oOo 
wr 


MFO VW—w Www 


= address of descriptor 
Ri = Length of data element in bytes (if string, length of string) 
= lower Limit on subscript 


DSCS$L_M1+4 3; lower Limit (L1 
1+% ; upper Limit (U1 


) for one-dim 
) for one-dim 


-_—— 
uu 


_DES1_R2:: 
MOVZQL DSC$W_LENGTH(RO), R1 ; R1 = Length of data element 


SUBL3 L_L1(RO), L_U1(RO), R2 ; R2 1 
L R ; R2 = M1 = U1 = LI +1 
ERROR ; error if 0 or negative 

MOVL R2, DSC$L_M1(RO) ; store M1 


MULLS R2, R1, DSCS$L_ARSIZE(RO) ; store array size in bytes 


MOVQ L_L1(RO), DSCSL_LOW_INDX(RO) j coo ~~ and high Linear index 


$ 16@e. L1 on 


MULL3 R1, L_L1(RO), R2 ; R2 = low * Longe th 
SUBL3 = R2, DSC$A_POINTER(RO), DSC$A_AO(RO) ; AO = POINTER = Low * Length 
CMPB DSCSB_DTYPE(RO), #DSCSK -DTYPE_ T ; is this CHARACTER? 
BEQL 10$ bra ich’ f yes 
CMPB DSCS$B_DTYPE(RO), #DSCS$K _btyPE “OC iz this D Complex? 
BEQL 10$ ; branch if yes 
RSB 3; return if not 
MOVL R2, DSCS$L_LOW_INDX(RO) ; store scaled low index by Length 
a R1, DSCS$L-HIGA_INDX(RO) ; —e high index by Length 
3; return 


Here on dimensionin 
Hy _SIGNAL error FORS_A JARRD IM (93="ADJUSTABLE ARRAY DIMENSION ERROR’) 


one 


wDnoe 
FOMOOOOOOOD NANO FSOCOWDWIVDIAAA— - 9 TW OWUIWOOOOOOSOOSOSCOOO CZ 


OOOO COCOCOOOOOOOOOOOOCOCOCOCOCOOOCOOOOCOOOOCOOOOOOOOOOOOOO 2-4 
BPP EE FENN NAIWIIDOPOPINININPONPININIDY 2 2 PP PO OS SS HS COOCOOOOCOO We 
NAW WN OS OD NAUE WN OOO NAM EWN O OONAUE WN OODNAUE WR AX 


COOGOCOCCOCCCOOSOSOSSOSSCOCOoooooooooooooooooooo 
SF PEWWWNAANAINI NIAAA DINID PHO OOOO OCCOOOOCOOCOOCOOSSO I 


POPOPIPYNINYAINIPOPOPPYNYINININPYINPIPONINPYNPOPUNINPINYINPOPONO NON 


PUSHL #FORS_ADJARRDIM ; FORTRAN error # 
CALLS #1, G*LIBSSIGNAL ; SIGNAL error 
; In case it comes back 
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FORSINI_DES ; FORTRAN array descriptor initializatio 15-SEP-1984 23:53:19 VAX/VMS Macro v04-00 Page 
1-021 FORSINI_DES2_RS : fue’ dinenstan array d 6=SEP=-1984 10:56:25 CFORRTL.SRCIJFORINIDES.MAR; 1 ’ 8) 
Ree 23 «SBTTL FORSINI_DES2_R3 ! Two dimension array desc. init. 
O4A : p++ 
Been 2 ; FUNCTIONAL DESCRIPTION: 
QOQ4A 54; Initialize two-dimension array descriptor entries based on the lower 
Q04A 55 ; and upper subscripts Limits and the address of the 
aren 56 ; first allocated entry. The LOW_INDX and HIGH_INDX 
Q4A 57 ; entries are FORTRAN specific for in-line subscript checking 
004A 58 ; using the INDEX instruction and are outside the standardized 
Baan 23 ; array descriptor paased between modules. 
04A 61 ; CALLING SEQUENCE: 
004A 506 3 
004A 263 ; MOVA address_of Peer wier. RO 
004A 264 ; JSB FORSINI_DES2_R 
004A 265 ; 
004A 266 ; INPUT PARAMETERS: 
004A 267 ; 
004A 268; RO = address of array descriptor 
004A 269 ; 
004A 270 ; IMPLICIT INPUTS: 
004A 271 ; 
O4A 272; length of each data element - LENGTH 
046A 273; data type of each element - DTYPE 
004A 8 274 ; address of first allocated entry - POINTER 
004A 275 ; lower Ist subscript Limit = L1 
004A 276; upper ist subscript Limit = U1 
004A 77 4 lower 2nd subscript Limit = L2 
004A 78 ; upper 2nd subscript Limit - U2 
004A 79 ; 
004A $e ; OUTPUT PARAMETERS: 
004A 81; 
004A 5B6 ; NONE 
004A 283 ; 
006A 284 ; IMPLICIT OUTPUTS: 
004A 285 ; 
04A 286 ; 1st dimension multiplier - M1 
O4A 287 ; 2nd dimension multiplier = M2 
004A 88 ; array size in bytes - ARSIZE 
004A 89 ; highest Linear index - HIGH INDX 
004A 90 ; Lowest Linear index - LOW_INDX 
7 004A v1-¥ address of A(0) - AO 
. QO04A $3 : 
: 04A 93 ; COMPLETION CODES: 
O4A 94; 
O4A 95 ; NONE 
O4A 96 ; 
Q004A 97 ; SIDE EFFECTS: 
O04A 98 ; 
; 04A 99 ; NONE 
00 ; 
01 ; 
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iTiheg : : 
1-021 » 


FORTRAN arra 5-SEP=1984 23:53:19 VAX/VMS Macro v04-00 P 7 
FORSING DES RE “s fuo dimensign arcey G OnsEP-19Be TOsseics FFORMTS eae TPONGNIoeS MaRs1 3% c10) 
S¢A 30 ; Regist 
3 ster : 
Rae 23 egister usage 
O4A 88 5 RO = address of descriptor 
Boe 07 ; R1 = Length of data element in bytes (if string, length of string) 
Q4A 08 ; R2 = lower Limit on subscript 
Been ” 3 R35 = upper Limit on subscript 
0000001C 004A 11 L_L1 = DSCSL_M2+4 ; lower Limit 1 for 2-dim 
00000020 SOGa \¢ L-U1 = L_L1+3 3 upper Limit 1 for 2-dim 
00000024 004A 1 Lats = L_L1+8 ; lower Limit 2 for 2-dim 
00000028 ote 14 LU2 = L_L1+12 ; upper Limit 2 for 2-dim 
04A 15 
O04A 16 
004A 17 FORSINI_DES2_R3:: 
51 60 3 gree 18 MOVZQL DSC$W_LENGTH(RO), R1 ; R1 = Length of data element 
52 20A0 1C AD C3 004D 336 SUBL3 L_L1(RO), L_U1(RO), R2 ; R2 = U1 = L1 
52 06 0053 = 321 INCL R2 ; R2 = M1 = Ul = L1 + 1 
—E5 15 0055 358 BLEQ ERROR ;_error_ if 0 or negative 
53 28 A0 24 A0 (C3 0057 2 SUBL3 L_L2(RO), L_U2(RO), R3 ; R3_= U2 = 
53 06 005D 324 INCL R3 ; R3 = M2 = U2 = L2 + 1 
DB «415 #OOSF 325 BLEQ ERROR ; error if multiplier is 0 or negative 
14 A0 52 7D oped 359 MOVQ R2, DSCS$L_M1(RO) 3; store M1 and md 
53 52 C& 0065 328 MULL R2, R3 ; R3 = M1 * M2 
0c AO 53 51 #+%¢C5 0068 329 MULLS R1, R3, DSCSL_ARSIZE(RO) ; store array size in bytes 
Bnep $39 : = data type length * Ml * M2 
53 52 28 a0 C5 006d 338 MULLS L_U2(RO), R2, R3 3 R3 = M1 * U2 
53 20a0 (CO eee $7 ADDL L_U1(RO), R3 ; R3 = high index = U2*M1 + U1 
52 24 AO C4 0076 335 MULL L_L2(RO), R2 3 R2 = M1*L2 
52 1C AO CO OO7A 336 ADDL L-L1(RO), R2 ; R2 = low index = L2*M1 + L1 
FB AO 52. 7D o075 33 MOVQ RZ, DSC$L_LOW_INDX(RO) ; store low and high Linear index 
52 51 C& 0082 339 MULL R1, R2 ; R2 = low * Length 
10 A0 04A0 52 €3 0085 340 SUBL3 R2. DSCS$A_POINTER(RO), DSCSA_AO(RO) ; AO = POINTER = low * Length 
OE 02 Ad) 3«6—91 =«=—(008B 348 CMPB DSCSB_DTYPE(RO), MDSCSK_DTYPE_T ; is this CHARACTER? 
07 13 OO8F 4 BEQL 10$ ; branch if yes 
0D 02 A0 91 0091 344 CMPB  DSCS$B_DTYPE(RO), MDSCSK_BTYPE_DC ; is this D Complex? 
sg OF. 19 9095 45 BEQL 108 ; branch if yes 
05 Bho rt. RSB 3; return if not 
ov" *- 34 ch BRB 48 10$ MULL R1, R3 ; R3 = scaled high by length. 
F8 AO. 52 D 0098 49 MOVa R2, DSCSL_LOW_INDX(RO) ; store scaled low and high index 
05 OO9F 350 RSB : return 


IMPLICIT OUTPUTS: 
ist dimension multiplier - M1 
nth dimension multiplier - Mn 
highest Linear index - HIGH INDX 
lowest Linear index - LOW_INDX 
address of A(0) - AO 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


NONE 
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1-021 FORSINI DESC_RO ! N dlaension array des 6-SEP-1984 $3:88; 5 (CFORRTL.SRCIJFORINIDES.MAR; 1 . fs 
- 26 -SBTTL FORSINI_DESC_R6 ! N dimension array desc. init. 
os 54 ; ++ 
BRA 2? ; FUNCTIONAL DESCRIPTION: 
GOAG 4] : Initialize PR es deg array descriptor entries base on the lower 
QOA 58 ; and upper subscripts Limits and the address of the 
Q0A0 59 ; first allocated entry. The LOW_INDX and HIGH_INDX 
QOA0 60 ; entries are FORTRAN specific for in-line subscript checking 
Q0A0 61 ; using the INDEX instruction and are outside the standardized 
BRAR 6¢ 5 array descriptor paased between modules. 
50A0 64 ; CALLING SEQUENCE: 
Q0A0 65 3 
QOA0 66 ; MOVA address_of geegripter. RO 
00A0 67 ; JSB FORSINI_DESC_R 
QO0A0 68 ; 
QOA0 69 ; INPUT PARAMETERS: 
0OA0 70 ; 
QOA0 fi 3 RO = address of array descriptor 
Q0A0 ie $ 
Q0A0 73; IMPLICIT INPUTS: 
00A0 74 ; 
Q0A0 75 ; Length of each data element - LENGTH 
00A0 “oe data type of each element - DTYPE 
00A0 77 ; address of first allocated entry - POINTER 
00A0 78 ; lower 1st subscript Limit - L1 
00A0 79 ; upper ist subscript Limit - U1 
00A0 80 ; lower 2nd subscript Limit - L2 
ee 4 3 upper 2nd subscript Limit - U2 
00A0 83 : lower nth subscript Limit - Ln 
QOA0 84 ; upper nth subscript Limit = Un 
00A0 85 ; 
00A0 86 ; OUTPUT PARAMETERS: 
OOA0 87 ; 
00A0 88 ; NONE 
00A0 89 ; 
90 ; 
3 
8 : 
94; 
95 ; 
96 ; 
97 ; 
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TRAN erray 
NI_DESC_R 
pA 409 
A 410 
OA 411 
Q0A0 zig 
OOAO 341 
QOAO 414 
QOOAO 415 
Q0A0 11$ 
QOAO 41 
O0OA0 18 
00A0 19 
Bpag 0 
OA | 
Q0A7 ¢ 
QOAB 
QOAF 4 
00B2 5 
00B2 6 
0086 7 
0088 8 
0 
4 
5 
6 
7 
8 
9 
0 
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008D 

00c 

00c 

00Cc 

00c8 

00c8 

00C8 

00cB 

OOCF 

00D2 

00D4 4 

0004 8441 

00D7 44 

OODA 44 

QODD 444 

Q0E 445 

O0E 446 

00 447 

QOE? 448 

QOE7 449 
QOEA 450 
OOFO 451 
oere 126 

FE 45 

QOF6 454 
OOFA 455 
OOFC 456 
Bpee 457 
OFD 458 
0100 459 
0104 460 
0105 461 


10$: 
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! N dimension array des a-SEp-} 984 $3538: 38 LPORRTL. SREIFORINIDES MAR: 1 . (12) 
; Register usage: 
RO = address of descriptor 
Ri = Length of data element in prtes (if string, length of string) 
R2 = Mi then partial product * Mi + Li 
RS = accumulated product of Mi, then partial product * Mi + Ui 
R4 = pointer to multipliers (M4... Mn) 
R5 = pointer to lower/upper subscript Limits (L1, U1, ..., Ln, Un) 
R6 = no. of dimensions 
FORSINI_DESC_R6:: 
MOVZQL DSC$W_LENGTH(RO), R1 ; R1 = Length of data element 
OVAL DSCSL_M1(RO), RS ; R4 = adr. of M1 
MOVZBL DSB DIMCT(RO), R6 : R6 = dimension count 
MOVAL (R4)CR6J, RS ; RS = adr. of L1 
OVL #1, R3 ; R3 = initial array size in bytes 
SUBL3 = (R5)+, (R5)+, R2 3 R2 = Ui - Li 
INCL R2 ; R2 = Mi = Ui - Li +1 
BLEQ ERROR ; error if 0 or negative 
MOVL R2, (R4)+ 3; store Mi 
MULL R2, R3 ; R3 = accumulated product of Mi 
SOBGTR R6, 10$ ; loop for each dimension 


20$: 


30$: 


40$: 


MULL3 R1, R3, DSCSL_ARSIZE(RO) ; store array size in bytes 
; = data type length * Ml * M2 


SUBL #4, RG ; R4 = address Mn, so skip Mn next loop 
MOVZBL DSCS$B_DIMCT(RO), R6 ; R6 =_no. of dimensions 

MOVQ =(R5), R2 ; R2/R3_ = Ln/Un 

BRB 30$ ; skip Mn 

MULL -(R4), R3 ; R3 = partial product * Mi 

ADDL -(R5), R3 ; R3 = partial product * Mi + Ui 

MULL (R4), R2 ; R2 = partial product * Mi 

ADOL -(R55, R2 ; R2 = partial product * Mi + Li 

SOBGTR R6, 26 ; loop no. of dimensions-1 


mova R2, DSCSL_LOW_INDX(RO) ; store low and high Linear index 


R1, R2 ; R2 = low * Length 
SUBL3 2. DSCS$A_POINTER(RO), DSCSA_AO(RO) ; AO = POINTER = low * Length 
CMPB = DSCS$B_DTYPE(RO), #DSCSK_DTYPE_T ; is this CHARACTER? 


;_branc yes 
CMPB DSCSB_DTYPE(RO), #DSCSK_DTYPE_DC ; is this D Complex? 
BEQL 40$ > branch if yes 
RSB ; return if not 


; R3 = scaled high by length 
; store scaled low and high index 


R1, R3 
MOVQ R2, DSCSL_LOW_INDX(RO) 
; return 


zDD 
uw” 
wo 
. 


FORSINI_DES 
Symbol fable 


The working set Limit was 1050 pages. : 
12011 bytes (24 pages) of virtual memory were used to buffer the intermediate code. 


10 object records in Pass 2 
macros. 


461 source lines were read in Pass 1, producin 
8 pages of virtual memory were used to define 


DSCSA_AO = one 010 
DSCSA_POINTER = 000 ie 
DSC$B_DIMCT = $38 $8 
DSCSB_DTYPE = 0000000 
DSCSK_DTYPE_DC = B08 itd 
DSCSK_DTYPE = QOQO0000E 
DSCSL_ARSIZ = 0000000C 
DSCSL_HIGH_INDX s aaaaa aes 
DSCS$L_-LOW_INDX = FFFFFFF 
DSCS$L_M1 = 4 a 
DSCSL_M2 = 0000 8 
DSC$W_LENGTH = BRO RO OS 
RROR 0000003C R 02 
FORSINI_DES1_R 00000000 8G 02 
FORSINI_DES2_R Q000004A RG 02 
FORSINI DESC R6 Q00000A0 RG 02 
FORS_ADJARRDIM reerneee 00 
LIBSSIGN eenerere = § xX 00 
L_L1 = 0000001C 
LL2 = 00000024 
L_u1 = 00000020 
L_uU2 = 00000028 
¢eooecccececocccn + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. «ABS. 00000000 < 0.) 00 ¢ O.) NOPIC USR CON’ ABS 
SABSS 00000000 ( 0.) O1¢ +1.) NOPIC USR CON ABS 
_FORSCODE 00000105 ( 261.) 02 PIC USR CON” REL 
‘iceineieeemnabneenal 
! Performance indicators ! 
pettiness alacnletintint ee 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.09 00:00:01.06 
Command processing 179 00:00:00.49 ST 
Pass 14 00:00:02.29 00:00:07.16 
Symbol table sort 0 00:00:00.18 00:00:00.43 
Pass 2 89 sb 4 88 :80:8 38 
Symbol iable output 4 0:00:00.03 0:00:00.03 
Psect synopsis output 2 00:00:00.02 00:00:00.03 
Cross-reference output 0 b's So 6 eS Se ay 
Assembler run totals 389 00:00:04.1 0:00:15.03 


L 16 
; FORTRAN array descriptor initializatio i aks sat ? : 
66-SEP-1984 


[ 


AX/VMS Macro Vv04-00 
FORRTL.SRCIJFORINIDES.MAR; 1 


Page 


LCL NOSHR er — NOWRT NOVEC BYTE 


LCL NOSHR 


LCL 


There were 10 pages of symbol table space allocated to hold 143 non-local and 6 local symbols. 


SHR 


EXE 


D WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


10 
(12) 


FORSIN 


M 16 
A, eh | gage net Veen ten Sea ; FORTRAN array descriptor initializatio 15- 2-360] 383 $3: 23: 2 ere 


perme scwmanwm sn wrwsrerwncaamee eeeeeen} 


; Macro Library statistics ! 


Seer eewr en ee eee mr eeee annals 


Macro Library name Macros defined 
“$255$DUA28: CSYSLIBISTARLET. MLB;2 4 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


RTL SRCIFORINIDES.maR:1 29° (15 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORINIDES/OBJ=OBJ$:FORINIDES MSRC$:FORINIDES/UPDATE=(ENHS$:FORINIDES) 


L EQUIPMENT CORPORATION 
ENTIAL .AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


G 
N 


TA 
ID 


0180 F 


DI 
CO 


